00100	. DEVICE XGP    
00200	.spacing 10*5 mills;
00300	.EVERY HEADING(,{PAGE},)
00400	.AREA TEXT LINES 4 TO 40
00500	.FONT 1 "METL"
00600	.font 2 "METLI"
00700	.font 3 "METS"
00800	.font 4 "MUS[HHA,LCS]"
00900	.FONT 5 "BASL35"
01000	.!XGPLFTMAR←284
01100	.PORTION MAIN;
01200	.PLACE TEXT;
01300	.COMPACT
01400	.PAGE←65
01500	.NEXT PAGE
01600	.<< Put in a footnote. >>
01700	.
01800	.COUNT FOOTNOTE INLINE FROM 1 TO 999 IN PAGE PRINTING ⊂"*****"[1 TO FOOTNOTE]⊃
01900	.<<	(IF THISDEVICE = "XGP" THEN "%51%*" ELSE "[1]");>>
02000	.
02100	.FOOTSEP ← "__________";
02200	.AT "$$" ENTRY "$"
02300	.	⊂
02400	.	NEXT FOOTNOTE;
02500	.	FOOTNOTE!;
02600	.	SEND FOOT
02700	.		⊂
02800	.		BEGIN "NEXT FOOTNOTE"
02900	.		SELECT 1;
03000	.		SINGLE SPACE
03100	.		SPACING 0 MILLS
03200	.		INDENT 0,0,0;
03300	.		(FOOTNOTE! & " ");
03400	ENTRY
03500	.		END "NEXT FOOTNOTE";
03600	.		⊃;
03700	.	⊃;
03800	.
03900	.TURN ON "%↓_↑↓[&]","α"
     

00100	.begin verbatim
00200	Control Tonics
00300	.end
00400	.FILL INDENT 6
00500		An extension of the previous line of thought will serve well
00600	when considering the following analysis of music typical of the work
00700	of Bach.
00800	.BEGIN VERBATIM
00900	
01000	Example 67.  Bach, Invention No.4 in d.
01100	.END
01200	.CENTER
01300	%5⊂⊗⊃L[α0,α%-6.7]:N67XA.PLT[HHA,LCS]⊂⊗⊃%1